home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _apps_2 / smallapps1 / _drawlink / drawlink < prev    next >
Encoding:
Text File  |  1992-05-07  |  624 b   |  22 lines
  1. | >DrawLink
  2. set Input$File %0
  3. set Output$File %1
  4.  
  5. | Echo messages
  6. echo Linking input file "<Input$File>" to output file "<Output$File>"
  7. echo on <Sys$Date> <Sys$Year>.<Sys$Time>
  8.  
  9. | Check for wildcards
  10. if "<Input$File>" RIGHT 1="*" then error Wild cards
  11. if "<Output$File>" RIGHT 1="*" then error Wild cards
  12.  
  13. | Link file
  14. print <Obey$Dir>.TA_Link { > <Output$File> }
  15. echo \; DrawLinked on <Sys$Date> <Sys$Year>.<Sys$Time> { >> <Output$File> }
  16. echo \; Input file "<Input$File>" { >> <Output$File> }
  17. print <Input$File> { >> <Output$File> }
  18. print <Obey$Dir>.TA_LinkE { >> <Output$File> }
  19.  
  20. | Set filetype
  21. settype <Output$File> text
  22.